\(Shape xs) (List ys) -> equalLength xs ys == (length xs == length ys)
>>> lessOrEqualLength "" undefined True